home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Claudio Martini / Canon with Motives < prev    next >
Lisp/Scheme  |  1998-10-26  |  1KB  |  50 lines
  1. ; Canon a 2 super Thema Regium J.S.Bach
  2. ; authors: stalker@mix.it and psto@xs4all.nl
  3.  
  4. (def-orchestra 'orchestra
  5.    all-instruments (voice1 voice2)
  6. )
  7.  
  8. (def-motive theme1
  9.    symbol '(a c e f -b e (-1 e) d (-1 d) c b (-1 b) a -b -d a d c b a c)
  10.    length '(2/4 2/4 2/4 2/4 2/4 -1/4 2/4 2/4 2/4 2/4 2/4 1/4 1/4 1/4 1/4 1/4
  11.             1/4 1/4 2/4 2/4 2/4 2/4)
  12.    velocity '(85 75 80 70)
  13. )
  14.  
  15. (def-motive contrapunctus1
  16.    symbol '(e d e h e c b c d e (1 f) g h c d e f b c d e d c b c d e f (-1 g)
  17.             f e d e f (-1 g) h (-1 i) (-1 g) f e (1 f) g h i j h g (1 f) g h i
  18.             j k i e i h i j k j i h g h e c a)
  19.    length '(1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8
  20.             1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8
  21.             1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8
  22.             1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8
  23.             1/4 1/4 1/4 1/4)
  24.    velocity '(85 75 80 70)
  25. )
  26.  
  27. (setq theme2 (rev theme1))
  28. (setq contrapunctus2 (rev contrapunctus1))
  29.  
  30. (def-section sect-a
  31.    default
  32.       zone '(9/1 9/1 9/1 9/1)
  33.       tonality (activate-tonality (harmonic-minor c 5))
  34.    voice1
  35.       channel 2
  36.       program 1
  37.       motive (list theme1 contrapunctus1 contrapunctus2 theme2)
  38.    voice2
  39.       channel 3
  40.       program 2
  41.       motive (list contrapunctus2 theme2 theme1 contrapunctus1)
  42. )
  43.  
  44. (def-tempo 150)
  45.  
  46. (play-file-p "Thema Regis"
  47.    all-instruments '(sect-a)
  48. )
  49.  
  50. (same-as symbol of voice2)